home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Scope / Scope Disk #058 (199x)(Scope PD)(US)[WB].zip / Scope Disk #058 (199x)(Scope PD)(US)[WB].adf / B1Subs / Pointer (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-01-24  |  4KB  |  204 lines
  1.  
  2.  DECLARE FUNCTION AllocMem& LIBRARY
  3.  LIBRARY "intuition.library"
  4.  LIBRARY "exec.library"
  5.  
  6.  PRINT " Please click mouse to start.
  7.  WHILE MOUSE(0)=0:WEND
  8.  WHILE MOUSE(0)<>0:WEND
  9.   
  10.  Chip%=2
  11.  RESTORE  
  12.  ON BREAK GOSUB NoBreak
  13.  BREAK ON
  14.  
  15. FOR J=1 TO 9 
  16.  READ PHeight%,PWidth%,PXoffset%,PYoffset%
  17.  
  18.  PSize&=2*(2*PHeight%+3)
  19.  
  20.  Mem&=AllocMem&(PSize&,Chip%)
  21.  
  22.  FOR I&=Mem& TO (Mem&+PSize&) STEP 2
  23.    READ X%
  24.    POKEW I&,X%
  25.  NEXT
  26.  
  27.  CALL SetPointer(WINDOW(7),Mem&,PHeight%,PWidth%,PXoffset%,PYoffset%)
  28.  
  29.  PRINT " SetPointer #";J
  30.  PRINT " Click mouse for next pointer.
  31.  
  32.  WHILE MOUSE(0)<>0:WEND
  33.  WHILE MOUSE(0)=0
  34.    PSET(MOUSE(1),MOUSE(2)),RND*3.5
  35.  WEND
  36.  
  37.  CALL ClearPointer(WINDOW(7))
  38.  PRINT "   Cleared Pointer #";J
  39.     
  40.  CALL FreeMem(Mem&,PSize&)
  41. NEXT
  42.  
  43.  LIBRARY CLOSE
  44.  PRINT "Was it good for you too?
  45.  END
  46.  
  47. NoBreak:
  48.  RETURN
  49.   
  50. PointerData:
  51.   ' multi-colored "X"
  52.   DATA 9,9,-5,-4
  53.   DATA &H0000 , &H0000
  54.   DATA &HC180 , &H4100
  55.   DATA &H6380 , &HA280
  56.   DATA &H3700 , &H5500
  57.   DATA &H1600 , &H2200
  58.   DATA &H0000 , &H0000
  59.   DATA &H1600 , &H2200
  60.   DATA &H2300 , &H5500
  61.   DATA &H4180 , &HA280
  62.   DATA &H8080 , &H4100
  63.   DATA &H0000 , &H0000
  64.  
  65. PointerData2:
  66.   ' mono-colored "X"  
  67.   DATA 9,9,-5,-4
  68.   DATA &H0000 , &H0000
  69.   DATA &H8080 , &H0000
  70.   DATA &H4100 , &H0000
  71.   DATA &H2200 , &H0000
  72.   DATA &H1400 , &H0000
  73.   DATA &H0000 , &H0000
  74.   DATA &H1400 , &H0000
  75.   DATA &H2200 , &H0000
  76.   DATA &H4100 , &H0000
  77.   DATA &H8080 , &H0000
  78.   DATA &H0000 , &H0000
  79.  
  80. PointerData3:
  81.   ' multi-colored "S!"  
  82.   DATA 9,9,-5,-4
  83.   DATA &H0000 , &H0000
  84.   DATA &H0FC3 , &H0000
  85.   DATA &H3FF3 , &H0000
  86.   DATA &H30C3 , &H0000
  87.   DATA &H0000 , &H3C03
  88.   DATA &H0000 , &H3FC3
  89.   DATA &H0000 , &H03C3
  90.   DATA &HC033 , &HC033
  91.   DATA &HFFC0 , &HFFC0
  92.   DATA &H3F03 , &H3F03
  93.   DATA &H0000 , &H0000
  94.  
  95. PointerData4:
  96.   ' multi-colored box  
  97.   DATA 13,16,-8,-6
  98.   DATA &H0000 , &H0000
  99.   DATA &HFFFE , &HFFFE
  100.   DATA &HC106 , &HC006
  101.   DATA &HC106 , &HC006 
  102.   DATA &HC106 , &HC006
  103.   DATA &HC106 , &HC006
  104.   DATA &HC106 , &HC006
  105.   DATA &HFFFE , &HC006  
  106.   DATA &HC106 , &HC006
  107.   DATA &HC106 , &HC006
  108.   DATA &HC106 , &HC006
  109.   DATA &HC106 , &HC006  
  110.   DATA &HC106 , &HC006
  111.   DATA &HFFFE , &HFFFE
  112.   DATA &H0000 , &H0000
  113.  
  114. PointerData5:
  115.   ' multi-colored box  
  116.   DATA 13,16,-8,-6
  117.   DATA &H0000 , &H0000
  118.   DATA &H440 , &H2C0
  119.   DATA &H440 , &H2C0
  120.   DATA &H440 , &H2C0  
  121.   DATA &H440 , &H2C0
  122.   DATA &H440 , &H2C0
  123.   DATA &HFC7E , &H02FE
  124.   DATA &H0 , &H0  
  125.   DATA &HFC7E , &H02FE
  126.   DATA &H440 , &H2C0
  127.   DATA &H440 , &H2C0
  128.   DATA &H440 , &H2C0  
  129.   DATA &H440 , &H2C0
  130.   DATA &H440 , &H2C0
  131.   DATA &H0000 , &H0000
  132.  
  133. PointerData6:
  134.   ' arrow  
  135.   DATA 8,9,1,1
  136.   DATA &H0 , &H0
  137.   DATA &HFC00 , &H0
  138.   DATA &HF000 , &H0
  139.   DATA &HCE00 , &H0 
  140.   DATA &H380 , &H0 
  141.   DATA &HE0 , &H0 
  142.   DATA &H38 , &H0 
  143.   DATA &HC  ,&H0 
  144.   DATA &H3 , &H0 
  145.   DATA &H0 , &H0 
  146.  
  147. PointerData7:
  148.   ' multi-colored finger
  149.   DATA 15,9,0,0
  150.   DATA &H0000 , &H0000
  151.   DATA &H0000 , &H8000
  152.   DATA &H2000 , &H6000
  153.   DATA &H5000 , &H7000
  154.   DATA &H3800 , &H3800
  155.   DATA &H1C03 , &H1C03
  156.   DATA &H0E06 , &H0E07
  157.   DATA &H070C , &H070E
  158.   DATA &H038C , &H038C
  159.   DATA &H01CC , &H01CC
  160.   DATA &H00FC , &H00FC
  161.   DATA &H01FC , &H01FC
  162.   DATA &H01FC , &H01FE
  163.   DATA &H00FA , &H00FD
  164.   DATA &H0005 , &H000A
  165.   DATA &H000A , &H0014
  166.   DATA &H0000 , &H0000
  167.  
  168. PointerData8:
  169.  ' multi-colored pencil
  170.   DATA 16,13,0,0
  171.   DATA &H0000 , &H0000
  172.   DATA &H0000 , &H8000
  173.   DATA &H6000 , &H6000
  174.   DATA &H7000 , &H4000
  175.   DATA &H3800 , &H0000
  176.   DATA &H1C00 , &H0000
  177.   DATA &H0E00 , &HC000
  178.   DATA &H0700 , &HE000
  179.   DATA &H0380 , &H7000
  180.   DATA &H01C0 , &H3800
  181.   DATA &H00E0 , &H1C00
  182.   DATA &H0070 , &H0E00
  183.   DATA &H0030 , &H0708
  184.   DATA &H000C , &H039C
  185.   DATA &H000C , &H01CC
  186.   DATA &H0000 , &H00E0
  187.   DATA &H0000 , &H0060
  188.   DATA &H0000 , &H0000
  189.  
  190. PointerData9:
  191.  ' test lines 
  192.   DATA 7,9,0,0
  193.   DATA &H0000 , &H0000
  194.   DATA &HFFFF , &HFFFF
  195.   DATA &HF001 , &HF001
  196.   DATA &H0000 , &HFFFF
  197.   DATA &HFFFF , &H0000
  198.   DATA &HFFFF , &HAAAA
  199.   DATA &HAAAA , &H5555
  200.   DATA &HFFFF , &HAAAA
  201.   DATA &H0000 , &H0000
  202.   
  203.   
  204.